home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / games / 1-l / diggers2.dms / in.adf / Install Diggers < prev    next >
Encoding:
Text File  |  1993-09-15  |  4.1 KB  |  191 lines
  1.  
  2. ;    $VER:install diggers 1.04 (14.9.93)
  3. ;    Diggers A1200 Hard Disk Installation Utility.
  4. ;    By Toby Simpson.
  5. ;    (C) Copyright 1993, Millennium Interactive Ltd. ALL RIGHTS RESERVED
  6.  
  7. (if (< (/ (getversion) 65536) 39)
  8.      (abort "You must be using Kickstart 3.0 or higher to install and use Diggers.")
  9. )
  10.  
  11. (transcript "On Installing \"Diggers\"...")
  12.  
  13. ; --------------------
  14. ; Get users choice to place Diggers ....
  15. ;
  16. (complete 0)
  17.  
  18. (set diggers_dest
  19.      (tackon
  20.           (askdir
  21.                (prompt "\nIn which disk (or drawer) should the Diggers drawer be installed?")
  22.                (help @askdir-help)
  23.                (default @default-dest)
  24.                )
  25.           "Diggers"
  26.           )
  27.      )
  28.  
  29. ; --------------------
  30. ; Make our drawer ....
  31. ;
  32. (complete 5)
  33.  
  34. (if (NOT (exists diggers_dest))
  35.      (makedir diggers_dest
  36.           (prompt "I will now create the Diggers drawer")
  37.           (help @makedir-help)
  38.           (infos)          
  39.           )
  40.      )
  41.  
  42. (set data_dest
  43.      (tackon diggers_dest "Diggers_Data")
  44.      )
  45.  
  46. (if (NOT (exists data_dest))
  47.      (makedir data_dest
  48.          (prompt "I am now making a data drawer")
  49.          (help @makedir-help)
  50.          )
  51.      )
  52.  
  53. (set @default-dest diggers_dest)
  54.  
  55. (debug diggers_dest data_dest)
  56.  
  57.  
  58. ; --------------------
  59. ; Install all data from disk 1 ....
  60. ; 
  61. (askdisk
  62.      (prompt "\n\nPlease insert Diggers disk 1")
  63.      (dest "diggers_disk_1")
  64.      (help @askdisk-help)
  65.      )
  66.  
  67.  
  68. (copylib
  69.      (prompt "Installing libraries.")
  70.      (help @copylib-help)
  71.      (source "diggers_disk_1:libs/lowlevel.library")
  72.      (dest "libs:")
  73.      )
  74.  
  75. (copylib
  76.      (source "diggers_disk_1:libs/nonvolatile.library")
  77.      (help @copylib-help)
  78.      (dest "libs:")
  79.      )
  80.  
  81. (complete 10)
  82.  
  83. (copyfiles
  84.      (prompt "Copying Disk 1 data")
  85.      (help @copyfiles-help)
  86.      (source "diggers_disk_1:")
  87.      (dest data_dest)
  88.      (all)
  89.      (infos)
  90.      )
  91.  
  92. (complete 25)
  93.  
  94. ; --------------------
  95. ; Install all data from disk 2 ....
  96. ; 
  97. (askdisk
  98.      (prompt "\n\nPlease insert Diggers disk 2")
  99.      (dest "diggers_disk_2")
  100.      (help @askdisk-help)
  101.      )
  102. (copyfiles
  103.      (prompt "Copying Disk 2 data")
  104.      (help @copyfiles-help)
  105.      (source "diggers_disk_2:")
  106.      (dest data_dest)
  107.      (all)
  108.      (infos)
  109.      )
  110. (copyfiles
  111.      (prompt "Copying Hard Disk Run Script")
  112.      (help @copyfiles-help)
  113.      (source "diggers_disk_2:hard_disk_extras/run-sequence")
  114.      (dest diggers_dest)
  115.      (infos)
  116.      )
  117. (complete 50)
  118.  
  119. ; --------------------
  120. ; Install all data from disk 3 ....
  121. ; 
  122. (askdisk
  123.      (prompt "\n\nPlease insert Diggers disk 3")
  124.      (dest "diggers_disk_3")
  125.      (help @askdisk-help)
  126.      )
  127. (copyfiles
  128.      (prompt "Copying Disk 3 data")
  129.      (help @copyfiles-help)
  130.      (source "diggers_disk_3:")
  131.      (dest data_dest)
  132.      (all)
  133.      (infos)
  134.      )
  135. (complete 75)
  136.  
  137. ; --------------------
  138. ; Install all data from disk 4 ....
  139. ; 
  140. (askdisk
  141.      (prompt "\n\nPlease insert Diggers disk 4")
  142.      (dest "diggers_disk_4")
  143.      (help @askdisk-help)
  144.      )
  145. (copyfiles
  146.      (prompt "Copying Disk 4 data")
  147.      (help @copyfiles-help)
  148.      (source "diggers_disk_4:")
  149.      (dest data_dest)
  150.      (all)
  151.      (infos)
  152.      )
  153. (complete 90)
  154.  
  155. ; --------------------
  156. ; Get NV storage stuff
  157. ;
  158.  
  159. (set nv_dest
  160.      (askdir
  161.           (prompt "\nIn which drawer should Diggers store saved games?")
  162.           (help @askdir-help)
  163.           (default "sys:")
  164.           )
  165.      )
  166.  
  167. (run "echo >sys:prefs/env-archive/sys/nv_location "nv_dest)
  168. (complete 95)
  169.  
  170. ; --------------------
  171. ; Now add lines to the user-startup file
  172. ;
  173. (startup "Diggers"
  174.      (prompt "Some instructions need to be added to the \"S:user-startup\""
  175.              " so that your system will be properly configured to run Diggers.")
  176.      (help @startup-help)
  177.      (command  "assign diggers_disk_1: " data_dest"\n"
  178.                "assign diggers_disk_2: " data_dest"\n"
  179.                "assign diggers_disk_3: " data_dest"\n"
  180.                "assign diggers_disk_4: " data_dest"\n")
  181.      )
  182. (complete 100)
  183.  
  184. ; --------------------
  185. ; All done, ask user to re-boot ....
  186. ;
  187. (exit "Now remove any Diggers Disks from your floppy drive units, "
  188.     "and reboot your Amiga before using Diggers.")
  189.  
  190. ; END OF DIGGERS A1200 INSTALLATION SCRIPT
  191.